home *** CD-ROM | disk | FTP | other *** search
/ United Public Domain Gold 2 / United Public Domain Gold 2.iso / utilities / pu380.dms / pu380.adf / CassEti / CassEti.ASCII < prev    next >
Text File  |  1990-07-02  |  19KB  |  967 lines
  1. OPENW #1,0,0,640,200,0,4100
  2. TITLEW #1,"Casseti 1.1"
  3. path$="Df0:"
  4. DIM men$(61),atitle$(25),btitle$(25)
  5. ' SETCOLOR 0,&HAF
  6. ' SETCOLOR 1,&H0
  7. ' SETCOLOR 2,&H1F
  8. ' SETCOLOR 3,&HFF0
  9. CLOSE #1
  10. ON ERROR GOSUB oops
  11. @init
  12. @menu
  13. @screen
  14. @adisplay_update
  15. @bdisplay_update
  16. @action
  17. > PROCEDURE init
  18.   num$="  "
  19.   tim$="C 90"
  20.   typ$="Cr/O2"
  21.   quala$="Stereo"
  22.   qualb$="Stereo"
  23.   norea$="DolbyC"
  24.   noreb$="DolbyC"
  25.   datea$="          "
  26.   dateb$="          "
  27.   backa$=STRING$(30," ")
  28.   backb$=STRING$(30," ")
  29.   adisnr%=1
  30.   bdisnr%=1
  31.   FOR z=1 TO 25
  32.     atitle$(z)=STRING$(33," ")
  33.     btitle$(z)=STRING$(33," ")
  34.   NEXT z
  35. RETURN
  36. > PROCEDURE action
  37.   DO
  38.     ON MENU
  39.     IF MOUSEK=1 OR ASC(INKEY$)=32
  40.       IF MOUSEX>271 AND MOUSEX<296
  41.         IF MOUSEY>29 AND MOUSEY<45 AND adisnr%>1
  42.           adisnr%=adisnr%-1
  43.           @adisplay_update
  44.         ENDIF
  45.         IF MOUSEY>63 AND MOUSEY<79 AND adisnr%<25
  46.           adisnr%=adisnr%+1
  47.           @adisplay_update
  48.         ENDIF
  49.         IF MOUSEY>133 AND MOUSEY<149 AND bdisnr%>1
  50.           bdisnr%=bdisnr%-1
  51.           @bdisplay_update
  52.         ENDIF
  53.         IF MOUSEY>167 AND MOUSEY<183 AND bdisnr%<25
  54.           bdisnr%=bdisnr%+1
  55.           @bdisplay_update
  56.         ENDIF
  57.       ENDIF
  58.       IF MOUSEX>300 AND MOUSEX<610
  59.         IF MOUSEY>46 AND MOUSEY<62
  60.           @entertitlea
  61.         ENDIF
  62.         IF MOUSEY>150 AND MOUSEY<166
  63.           @entertitleb
  64.         ENDIF
  65.       ENDIF
  66.     ENDIF
  67.   LOOP
  68. RETURN
  69. > PROCEDURE menu
  70.   RESTORE menuedaten
  71.   FOR m=0 TO 60
  72.     READ men$(m)
  73.   NEXT m
  74.   menuedaten:
  75.   DATA Casseti ,  About  ,  Quit  ,
  76.   DATA Disk ,  Load  ,  Save  , Delete ,
  77.   DATA Time ,  C45 ,  C60 ,  C90 ,  C110 ,  C120 ,  Enter ,
  78.   DATA Type ,  Ferro ,  Cr/O2  ,  Metal ,  Enter ,
  79.   DATA Quality ,  A Stereo ,  A Mono ,  A None ,-----------,  B Stereo ,  B Mono ,  B None ,
  80.   DATA Noise-Red. ,  A DolbyB ,  A DolbyC ,  A DolbyX ,  A None ,------------,  B DolbyB ,  B DolbyC ,  B DolbyX ,  B None ,
  81.   DATA Data , A Delete , A Insert , A Clear , -A Date , -A Back ,------------, B Delete , B Insert , B Clear , -B Date , -B Back ,
  82.   DATA Print , Data ,
  83.   DATA Number , Enter ,
  84.   MENU men$()
  85.   MENU 12,336
  86.   MENU 19,336
  87.   MENU 24,336
  88.   MENU 28,336
  89.   MENU 34,336
  90.   MENU 39,336
  91.   ON MENU GOSUB choice
  92. RETURN
  93. > PROCEDURE screen
  94.   COLOR 1
  95.   LINE 1,106,639,106
  96.   COLOR 3
  97.   BOX 300,46,610,62
  98.   BOX 271,46,296,62
  99.   COLOR 1
  100.   BOX 300,29,610,45
  101.   BOX 271,29,296,45
  102.   BOX 300,63,610,79
  103.   BOX 271,63,296,79
  104.   BOX 266,27,614,81
  105.   BOX 266,87,614,101
  106.   BOX 266,111,614,125
  107.   PRINT AT(37,11);"Back:"
  108.   PRINT AT(37,14);"Back:"
  109.   PRINT AT(4,11);"Number"
  110.   BOX 38,112,65,124
  111.   PRINT AT(6,14);num$
  112.   PRINT AT(15,11);"Time: ";tim$
  113.   PRINT AT(15,14);"Type: ";typ$
  114.   PRINT AT(3,4);"*****     Quality: ";quala$
  115.   BOX 88,30,233,46
  116.   PRINT AT(3,5);"*   *"
  117.   PRINT AT(3,6);"*****     Date:"
  118.   BOX 88,46,233,62
  119.   PRINT AT(3,7);"*   *"
  120.   PRINT AT(3,8);"*   *     NoiseR.: ";norea$
  121.   BOX 88,62,233,78
  122.   PRINT AT(3,17);"****      Quality: ";qualb$
  123.   BOX 88,134,233,150
  124.   PRINT AT(3,18);"*   *"
  125.   PRINT AT(3,19);"****      Date:"
  126.   BOX 88,150,233,166
  127.   PRINT AT(3,20);"*   *"
  128.   PRINT AT(3,21);"****      NoiseR.: ";noreb$
  129.   BOX 88,166,233,182
  130.   FILL 267,28
  131.   LINE 275,41,283,33
  132.   LINE 284,33,292,41
  133.   LINE 275,41,292,41
  134.   FILL 283,38
  135.   LINE 275,67,283,75
  136.   LINE 284,75,292,67
  137.   LINE 275,67,292,67
  138.   FILL 283,72
  139.   PRINT AT(30,6);STRING$(50," ")
  140.   GET 266,27,614,81,display$
  141.   PUT 266,131,display$
  142. RETURN
  143. > PROCEDURE adisplay_update
  144.   IF adisnr%<10
  145.     adisstr$="0"+STR$(adisnr%)
  146.   ELSE
  147.     adisstr$=STR$(adisnr%)
  148.   ENDIF
  149.   IF adisnr%>1
  150.     PRINT AT(41,4);atitle$(adisnr%-1)
  151.   ELSE
  152.     PRINT AT(41,4);STRING$(33," ")
  153.   ENDIF
  154.   PRINT AT(41,6);atitle$(adisnr%)
  155.   PRINT AT(35,6);adisstr$
  156.   IF adisnr%<25
  157.     PRINT AT(41,8);atitle$(adisnr%+1)
  158.   ELSE
  159.     PRINT AT(41,8);STRING$(33," ")
  160.   ENDIF
  161.   PRINT AT(43,11);backa$
  162.   PRINT AT(19,6);datea$
  163.   PAUSE 2
  164. RETURN
  165. > PROCEDURE bdisplay_update
  166.   IF bdisnr%<10
  167.     bdisstr$="0"+STR$(bdisnr%)
  168.   ELSE
  169.     bdisstr$=STR$(bdisnr%)
  170.   ENDIF
  171.   IF bdisnr%>1
  172.     PRINT AT(41,17);btitle$(bdisnr%-1)
  173.   ELSE
  174.     PRINT AT(41,17);STRING$(33," ")
  175.   ENDIF
  176.   PRINT AT(41,19);btitle$(bdisnr%)
  177.   PRINT AT(35,19);bdisstr$
  178.   IF bdisnr%<25
  179.     PRINT AT(41,21);btitle$(bdisnr%+1)
  180.   ELSE
  181.     PRINT AT(41,21);STRING$(33," ")
  182.   ENDIF
  183.   PRINT AT(43,14);backb$
  184.   PRINT AT(19,19);dateb$
  185.   PAUSE 2
  186. RETURN
  187. > PROCEDURE choice
  188.   m%=MENU(0)
  189.   SELECT m%
  190.   CASE 1
  191.     @about
  192.   CASE 2
  193.     @leave
  194.   CASE 5
  195.     @load
  196.   CASE 6
  197.     @save
  198.   CASE 7
  199.     @delete
  200.   CASE 10
  201.     tim$="C 45"
  202.     PRINT AT(21,11);tim$
  203.     MENU 10,336
  204.     MENU 11,80
  205.     MENU 12,80
  206.     MENU 13,80
  207.     MENU 14,80
  208.     MENU 15,80
  209.   CASE 11
  210.     tim$="C 60"
  211.     PRINT AT(21,11);tim$
  212.     MENU 11,336
  213.     MENU 10,80
  214.     MENU 12,80
  215.     MENU 13,80
  216.     MENU 14,80
  217.     MENU 15,80
  218.   CASE 12
  219.     tim$="C 90"
  220.     PRINT AT(21,11);tim$
  221.     MENU 12,336
  222.     MENU 10,80
  223.     MENU 11,80
  224.     MENU 13,80
  225.     MENU 14,80
  226.     MENU 15,80
  227.   CASE 13
  228.     tim$="C110"
  229.     PRINT AT(21,11);tim$
  230.     MENU 13,336
  231.     MENU 10,80
  232.     MENU 11,80
  233.     MENU 12,80
  234.     MENU 14,80
  235.     MENU 15,80
  236.   CASE 14
  237.     tim$="C120"
  238.     PRINT AT(21,11);tim$
  239.     MENU 14,336
  240.     MENU 10,80
  241.     MENU 11,80
  242.     MENU 12,80
  243.     MENU 13,80
  244.     MENU 15,80
  245.   CASE 15
  246.     PRINT AT(2,2);"Enter Time: ";
  247.     FORM INPUT 4,tim$
  248.     PRINT AT(2,2);STRING$(16," ")
  249.     IF tim$=""
  250.       tim$="    "
  251.     ENDIF
  252.     IF LEN(tim$)<4
  253.       tim$=tim$+STRING$(4-LEN(tim$)," ")
  254.     ENDIF
  255.     PRINT AT(21,11);tim$
  256.     MENU 10,80
  257.     MENU 11,80
  258.     MENU 12,80
  259.     MENU 13,80
  260.     MENU 14,80
  261.   CASE 18
  262.     typ$="Ferro"
  263.     PRINT AT(21,14);typ$
  264.     MENU 18,336
  265.     MENU 19,80
  266.     MENU 20,80
  267.     MENU 21,80
  268.   CASE 19
  269.     typ$="Cr/O2"
  270.     PRINT AT(21,14);typ$
  271.     MENU 19,336
  272.     MENU 18,80
  273.     MENU 20,80
  274.     MENU 21,80
  275.   CASE 20
  276.     typ$="Metal"
  277.     PRINT AT(21,14);typ$
  278.     MENU 20,336
  279.     MENU 18,80
  280.     MENU 19,80
  281.     MENU 21,80
  282.   CASE 21
  283.     PRINT AT(2,2);"Enter Type: ";
  284.     FORM INPUT 5,typ$
  285.     IF typ$=""
  286.       typ$="     "
  287.     ENDIF
  288.     IF LEN(typ$)<5
  289.       typ$=typ$+STRING$(5-LEN(typ$)," ")
  290.     ENDIF
  291.     PRINT AT(2,2);STRING$(17," ")
  292.     PRINT AT(21,14);typ$
  293.     MENU 18,80
  294.     MENU 19,80
  295.     MENU 20,80
  296.   CASE 24
  297.     quala$="Stereo"
  298.     PRINT AT(22,4);quala$
  299.     MENU 24,336
  300.     MENU 25,80
  301.     MENU 26,80
  302.   CASE 25
  303.     quala$=" Mono "
  304.     PRINT AT(22,4);quala$
  305.     MENU 25,336
  306.     MENU 24,80
  307.     MENU 26,80
  308.   CASE 26
  309.     quala$="      "
  310.     PRINT AT(22,4);quala$
  311.     MENU 26,336
  312.     MENU 24,80
  313.     MENU 25,80
  314.   CASE 28
  315.     qualb$="Stereo"
  316.     PRINT AT(22,17);qualb$
  317.     MENU 28,336
  318.     MENU 29,80
  319.     MENU 30,80
  320.   CASE 29
  321.     qualb$=" Mono "
  322.     PRINT AT(22,17);qualb$
  323.     MENU 29,336
  324.     MENU 28,80
  325.     MENU 30,80
  326.   CASE 30
  327.     qualb$="      "
  328.     PRINT AT(22,17);qualb$
  329.     MENU 30,336
  330.     MENU 28,80
  331.     MENU 29,80
  332.   CASE 33
  333.     norea$="DolbyB"
  334.     PRINT AT(22,8);norea$
  335.     MENU 33,336
  336.     MENU 34,80
  337.     MENU 35,80
  338.     MENU 36,80
  339.   CASE 34
  340.     norea$="DolbyC"
  341.     PRINT AT(22,8);norea$
  342.     MENU 34,336
  343.     MENU 33,80
  344.     MENU 35,80
  345.     MENU 36,80
  346.   CASE 35
  347.     norea$="DolbyX"
  348.     PRINT AT(22,8);norea$
  349.     MENU 35,336
  350.     MENU 33,80
  351.     MENU 34,80
  352.     MENU 36,80
  353.   CASE 36
  354.     norea$="      "
  355.     PRINT AT(22,8);norea$
  356.     MENU 36,336
  357.     MENU 33,80
  358.     MENU 34,80
  359.     MENU 35,80
  360.   CASE 38
  361.     noreb$="DolbyB"
  362.     PRINT AT(22,21);noreb$
  363.     MENU 38,336
  364.     MENU 39,80
  365.     MENU 40,80
  366.     MENU 41,80
  367.   CASE 39
  368.     noreb$="DolbyC"
  369.     PRINT AT(22,21);noreb$
  370.     MENU 39,336
  371.     MENU 38,80
  372.     MENU 40,80
  373.     MENU 41,80
  374.   CASE 40
  375.     noreb$="DolbyX"
  376.     PRINT AT(22,21);noreb$
  377.     MENU 40,336
  378.     MENU 38,80
  379.     MENU 39,80
  380.     MENU 41,80
  381.   CASE 41
  382.     noreb$="      "
  383.     PRINT AT(22,21);noreb$
  384.     MENU 41,336
  385.     MENU 38,80
  386.     MENU 39,80
  387.     MENU 40,80
  388.   CASE 44
  389.     @deletea
  390.   CASE 45
  391.     @inserta
  392.   CASE 46
  393.     @cleara
  394.   CASE 47
  395.     @datea
  396.   CASE 48
  397.     @backa
  398.   CASE 50
  399.     @deleteb
  400.   CASE 51
  401.     @insertb
  402.   CASE 52
  403.     @clearb
  404.   CASE 53
  405.     @dateb
  406.   CASE 54
  407.     @backb
  408.   CASE 57
  409.     @print_data
  410.   CASE 60
  411.     @number
  412.   ENDSELECT
  413. RETURN
  414. > PROCEDURE deletea
  415.   FOR z=adisnr% TO 24
  416.     atitle$(z)=atitle$(z+1)
  417.   NEXT z
  418.   atitle$(25)=STRING$(33," ")
  419.   @adisplay_update
  420. RETURN
  421. > PROCEDURE deleteb
  422.   FOR z=bdisnr% TO 24
  423.     btitle$(z)=btitle$(z+1)
  424.   NEXT z
  425.   btitle$(25)=STRING$(33," ")
  426.   @bdisplay_update
  427. RETURN
  428. > PROCEDURE entertitlea
  429.   atitle$=atitle$(adisnr%)
  430.   PRINT AT(41,6);STRING$(33," ")
  431.   PRINT AT(41,6);
  432.   FORM INPUT 33,atitle$(adisnr%)
  433.   IF atitle$(adisnr%)=""
  434.     atitle$(adisnr%)=atitle$
  435.   ELSE
  436.     rest%=33-LEN(atitle$(adisnr%))
  437.     atitle$(adisnr%)=atitle$(adisnr%)+STRING$(rest%," ")
  438.   ENDIF
  439.   IF adisnr%<25
  440.     adisnr%=adisnr%+1
  441.   ENDIF
  442.   @adisplay_update
  443. RETURN
  444. > PROCEDURE entertitleb
  445.   btitle$=btitle$(bdisnr%)
  446.   PRINT AT(41,19);STRING$(33," ")
  447.   PRINT AT(41,19);
  448.   FORM INPUT 33,btitle$(bdisnr%)
  449.   IF btitle$(bdisnr%)=""
  450.     btitle$(bdisnr%)=btitle$
  451.   ELSE
  452.     rest%=33-LEN(btitle$(bdisnr%))
  453.     btitle$(bdisnr%)=btitle$(bdisnr%)+STRING$(rest%," ")
  454.   ENDIF
  455.   IF bdisnr%<25
  456.     bdisnr%=bdisnr%+1
  457.   ENDIF
  458.   @bdisplay_update
  459. RETURN
  460. > PROCEDURE inserta
  461.   d$=STRING$(33," ")
  462.   IF atitle$(25)<>d$
  463.     ALERT 0,"Title Nr.25 will be lost !",1,"Do it|Cancel",cho%
  464.     IF cho%=2
  465.       GOTO insertaend
  466.     ENDIF
  467.   ENDIF
  468.   FOR z=24 TO adisnr% STEP -1
  469.     atitle$(z+1)=atitle$(z)
  470.   NEXT z
  471.   atitle$(adisnr%)=d$
  472.   @adisplay_update
  473.   insertaend:
  474. RETURN
  475. > PROCEDURE insertb
  476.   d$=STRING$(33," ")
  477.   IF btitle$(25)<>d$
  478.     ALERT 0,"Title Nr.25 will be lost !",1,"Do it|Cancel",cho%
  479.     IF cho%=2
  480.       GOTO insertbend
  481.     ENDIF
  482.   ENDIF
  483.   FOR z=24 TO bdisnr% STEP -1
  484.     btitle$(z+1)=btitle$(z)
  485.   NEXT z
  486.   btitle$(bdisnr%)=d$
  487.   @bdisplay_update
  488.   insertbend:
  489. RETURN
  490. > PROCEDURE cleara
  491.   ALERT 0,"All data on side A|will be lost !",1,"Okay|Cancel",cho%
  492.   IF cho%=1
  493.     FOR a=1 TO 25
  494.       atitle$(a)=STRING$(33," ")
  495.     NEXT a
  496.     backa$=STRING$(34," ")
  497.     datea$="          "
  498.     @adisplay_update
  499.   ENDIF
  500. RETURN
  501. > PROCEDURE clearb
  502.   ALERT 0,"All data on side B|will be lost !",1,"Okay|Cancel",cho%
  503.   IF cho%=1
  504.     FOR a=1 TO 25
  505.       btitle$(a)=STRING$(33," ")
  506.     NEXT a
  507.     backb$=STRING$(34," ")
  508.     dateb$="          "
  509.     @bdisplay_update
  510.   ENDIF
  511. RETURN
  512. > PROCEDURE save
  513.   FILESELECT "Save Data","Save",path$,file$
  514.   IF file$=""
  515.     GOTO end.save
  516.   ENDIF
  517.   IF EXIST(file$)=-1
  518.     ALERT 0,"File already exists !|Continue?|",1,"Go on!|Cancel",cho%
  519.     IF cho%=2
  520.       GOTO end.save
  521.     ENDIF
  522.   ENDIF
  523.   OPEN "O",#1,file$
  524.   IF errno<>0
  525.     GOTO end.save
  526.   ENDIF
  527.   @get_path
  528.   PRINT #1,"*"
  529.   PRINT #1,num$
  530.   PRINT #1,tim$
  531.   PRINT #1,typ$
  532.   PRINT #1,quala$
  533.   PRINT #1,norea$
  534.   PRINT #1,datea$
  535.   PRINT #1,backa$
  536.   FOR a=1 TO 25
  537.     PRINT #1,atitle$(a)
  538.   NEXT a
  539.   PRINT #1,qualb$
  540.   PRINT #1,noreb$
  541.   PRINT #1,dateb$
  542.   PRINT #1,backb$
  543.   FOR b=1 TO 25
  544.     PRINT #1,btitle$(b)
  545.   NEXT b
  546.   CLOSE #1
  547.   ALERT 0,"Datas saved !",1,"Okay",cho%
  548.   end.save:
  549. RETURN
  550. > PROCEDURE load
  551.   FILESELECT "Load Data","Load",path$,file$
  552.   IF file$=""
  553.     GOTO end.load
  554.   ENDIF
  555.   IF EXIST(file$)=0
  556.     ALERT 0,"File doesn't exist !|",1,"Okay!",cho%
  557.     GOTO end.load
  558.   ENDIF
  559.   OPEN "I",#1,file$
  560.   INPUT #1,mark$
  561.   IF mark$<>"*"
  562.     ALERT 0,"Wrong Data !|",1,"Okay!",cho%
  563.     GOTO end.load
  564.   ENDIF
  565.   @get_path
  566.   INPUT #1,num$
  567.   INPUT #1,tim$
  568.   INPUT #1,typ$
  569.   INPUT #1,quala$
  570.   INPUT #1,norea$
  571.   INPUT #1,datea$
  572.   INPUT #1,backa$
  573.   FOR a=1 TO 25
  574.     INPUT #1,atitle$(a)
  575.   NEXT a
  576.   INPUT #1,qualb$
  577.   INPUT #1,noreb$
  578.   INPUT #1,dateb$
  579.   INPUT #1,backb$
  580.   FOR b=1 TO 25
  581.     INPUT #1,btitle$(b)
  582.   NEXT b
  583.   CLOSE #1
  584.   PRINT AT(6,14);num$
  585.   @adisplay_update
  586.   @bdisplay_update
  587.   SELECT tim$
  588.   CASE "C 45"
  589.     PRINT AT(21,11);tim$
  590.     MENU 10,336
  591.     MENU 11,80
  592.     MENU 12,80
  593.     MENU 13,80
  594.     MENU 14,80
  595.     MENU 15,80
  596.   CASE "C 60"
  597.     PRINT AT(21,11);tim$
  598.     MENU 11,336
  599.     MENU 10,80
  600.     MENU 12,80
  601.     MENU 13,80
  602.     MENU 14,80
  603.     MENU 15,80
  604.   CASE "C 90"
  605.     PRINT AT(21,11);tim$
  606.     MENU 12,336
  607.     MENU 10,80
  608.     MENU 11,80
  609.     MENU 13,80
  610.     MENU 14,80
  611.     MENU 15,80
  612.   CASE "C110"
  613.     PRINT AT(21,11);tim$
  614.     MENU 13,336
  615.     MENU 10,80
  616.     MENU 11,80
  617.     MENU 12,80
  618.     MENU 14,80
  619.     MENU 15,80
  620.   CASE "C120"
  621.     PRINT AT(21,11);tim$
  622.     MENU 14,336
  623.     MENU 10,80
  624.     MENU 11,80
  625.     MENU 12,80
  626.     MENU 13,80
  627.     MENU 15,80
  628.   CASE "    "
  629.     PRINT AT(21,11);tim$
  630.     MENU 15,336
  631.     MENU 10,80
  632.     MENU 11,80
  633.     MENU 12,80
  634.     MENU 13,80
  635.     MENU 14,80
  636.   ENDSELECT
  637.   IF typ$="Ferro"
  638.     PRINT AT(21,14);typ$
  639.     MENU 18,336
  640.     MENU 19,80
  641.     MENU 20,80
  642.     MENU 21,80
  643.   ENDIF
  644.   IF typ$="Cr/O2"
  645.     PRINT AT(21,14);typ$
  646.     MENU 19,336
  647.     MENU 18,80
  648.     MENU 20,80
  649.     MENU 21,80
  650.   ENDIF
  651.   IF typ$="Metal"
  652.     PRINT AT(21,14);typ$
  653.     MENU 20,336
  654.     MENU 18,80
  655.     MENU 19,80
  656.     MENU 21,80
  657.   ENDIF
  658.   IF typ$="     "
  659.     PRINT AT(21,14);typ$
  660.     MENU 21,336
  661.     MENU 18,80
  662.     MENU 19,80
  663.     MENU 20,80
  664.   ENDIF
  665.   IF quala$="Stereo"
  666.     PRINT AT(22,4);quala$
  667.     MENU 24,336
  668.     MENU 25,80
  669.     MENU 26,80
  670.   ENDIF
  671.   IF quala$=" Mono "
  672.     PRINT AT(22,4);quala$
  673.     MENU 25,336
  674.     MENU 24,80
  675.     MENU 26,80
  676.   ENDIF
  677.   IF quala$="      "
  678.     PRINT AT(22,4);quala$
  679.     MENU 26,336
  680.     MENU 24,80
  681.     MENU 25,80
  682.   ENDIF
  683.   IF qualb$="Stereo"
  684.     PRINT AT(22,17);qualb$
  685.     MENU 28,336
  686.     MENU 29,80
  687.     MENU 30,80
  688.   ENDIF
  689.   IF qualb$=" Mono "
  690.     PRINT AT(22,17);qualb$
  691.     MENU 29,336
  692.     MENU 28,80
  693.     MENU 30,80
  694.   ENDIF
  695.   IF qualb$="      "
  696.     PRINT AT(22,17);qualb$
  697.     MENU 30,336
  698.     MENU 28,80
  699.     MENU 29,80
  700.   ENDIF
  701.   IF norea$="DolbyB"
  702.     PRINT AT(22,8);norea$
  703.     MENU 33,336
  704.     MENU 34,80
  705.     MENU 35,80
  706.     MENU 36,80
  707.   ENDIF
  708.   IF norea$="DolbyC"
  709.     PRINT AT(22,8);norea$
  710.     MENU 34,336
  711.     MENU 33,80
  712.     MENU 35,80
  713.     MENU 36,80
  714.   ENDIF
  715.   IF norea$="DolbyX"
  716.     PRINT AT(22,8);norea$
  717.     MENU 35,336
  718.     MENU 33,80
  719.     MENU 34,80
  720.     MENU 36,80
  721.   ENDIF
  722.   IF norea$="      "
  723.     PRINT AT(22,8);norea$
  724.     MENU 36,336
  725.     MENU 33,80
  726.     MENU 34,80
  727.     MENU 35,80
  728.   ENDIF
  729.   IF noreb$="DolbyB"
  730.     PRINT AT(22,21);noreb$
  731.     MENU 38,336
  732.     MENU 39,80
  733.     MENU 40,80
  734.     MENU 41,80
  735.   ENDIF
  736.   IF noreb$="DolbyC"
  737.     PRINT AT(22,21);noreb$
  738.     MENU 39,336
  739.     MENU 38,80
  740.     MENU 40,80
  741.     MENU 41,80
  742.   ENDIF
  743.   IF noreb$="DolbyX"
  744.     PRINT AT(22,21);noreb$
  745.     MENU 40,336
  746.     MENU 38,80
  747.     MENU 39,80
  748.     MENU 41,80
  749.   ENDIF
  750.   IF noreb$="      "
  751.     PRINT AT(22,21);noreb$
  752.     MENU 41,336
  753.     MENU 38,80
  754.     MENU 39,80
  755.     MENU 40,80
  756.   ENDIF
  757.   end.load:
  758. RETURN
  759. > PROCEDURE delete
  760.   FILESELECT "Delete File","Delete",path$,file$
  761.   IF file$=""
  762.     GOTO end.del
  763.   ELSE IF EXIST(file$)=0
  764.     ALERT 0,"File doesn't exist !|",1,"Okay!",cho%
  765.     GOTO end.del
  766.   ELSE
  767.     OPEN "I",#1,file$
  768.     INPUT #1,mark$
  769.     CLOSE #1
  770.     IF mark$<>"*"
  771.       ALERT 0,"File doesn't belong|to Casseti !!",1,"Go on!|Cancel",cho%
  772.       IF cho%=2
  773.         GOTO end.del
  774.       ENDIF
  775.     ENDIF
  776.     ALERT 0,"Do you really want me|to kill "+file$+" ?|",1,"Kill|Cancel",cho%
  777.     IF cho%=2
  778.       GOTO end.del
  779.     ENDIF
  780.     @get_path
  781.     KILL file$
  782.     IF errno<>0
  783.       GOTO end.del
  784.     ENDIF
  785.   ENDIF
  786.   end.del:
  787. RETURN
  788. > PROCEDURE oops
  789.   ON ERROR GOSUB oops
  790.   ALERT 0,ERR$(ERR),1,"Okay!",cho%
  791.   errno=ERR
  792.   RESUME NEXT
  793. RETURN
  794. > PROCEDURE datea
  795.   dates$=datea$
  796.   PRINT AT(41,6);STRING$(33," ")
  797.   PRINT AT(38,2);"Please enter date for side A !"
  798.   PRINT AT(41,6);
  799.   FORM INPUT 10,datea$
  800.   IF datea$=""
  801.     datea$=dates$
  802.   ENDIF
  803.   PRINT AT(19,6);STRING$(10," ")
  804.   PRINT AT(19,6);datea$
  805.   PRINT AT(38,2);STRING$(33," ")
  806.   PRINT AT(41,6);atitle$(adisnr%)
  807. RETURN
  808. > PROCEDURE backa
  809.   backs$=backa$
  810.   PRINT AT(41,6);STRING$(35," ")
  811.   PRINT AT(38,2);"Please enter Back-Text for side A !"
  812.   PRINT AT(42,6);
  813.   FORM INPUT 30,backa$
  814.   IF backa$=""
  815.     backa$=backs$
  816.   ENDIF
  817.   backa$=backa$+STRING$(30-LEN(backa$)," ")
  818.   PRINT AT(43,11);STRING$(30," ")
  819.   PRINT AT(43,11);backa$
  820.   PRINT AT(38,2);STRING$(35," ")
  821.   PRINT AT(41,6);atitle$(adisnr%)
  822. RETURN
  823. > PROCEDURE dateb
  824.   dates$=dateb$
  825.   PRINT AT(41,19);STRING$(33," ")
  826.   PRINT AT(38,24);"Please enter date for side A !";
  827.   PRINT AT(41,19);
  828.   FORM INPUT 10,dateb$
  829.   IF dateb$=""
  830.     dateb$=dates$
  831.   ENDIF
  832.   PRINT AT(19,19);STRING$(10," ")
  833.   PRINT AT(19,19);dateb$
  834.   PRINT AT(38,24);STRING$(33," ");
  835.   PRINT AT(41,19);btitle$(bdisnr%)
  836. RETURN
  837. > PROCEDURE backb
  838.   backs$=backb$
  839.   PRINT AT(41,19);STRING$(35," ")
  840.   PRINT AT(38,24);"Please enter Back-Text for side B !";
  841.   PRINT AT(42,19);
  842.   FORM INPUT 30,backb$
  843.   IF backb$=""
  844.     backb$=backs$
  845.   ENDIF
  846.   backb$=backb$+STRING$(30-LEN(backb$)," ")
  847.   PRINT AT(43,14);STRING$(30," ")
  848.   PRINT AT(43,14);backb$
  849.   PRINT AT(38,24);STRING$(35," ");
  850.   PRINT AT(41,19);btitle$(bdisnr%)
  851. RETURN
  852. > PROCEDURE number
  853.   nums$=num$
  854.   PRINT AT(2,2);"Enter number: ";
  855.   FORM INPUT 2,num$
  856.   IF num$=""
  857.     num$=nums$
  858.   ENDIF
  859.   IF LEN(num$)=1
  860.     num$=num$+" "
  861.   ENDIF
  862.   PRINT AT(2,2);STRING$(16," ")
  863.   PRINT AT(6,14);num$
  864. RETURN
  865. > PROCEDURE print_data
  866.   LPRINT "|";STRING$(39,"-");"|"
  867.   LPRINT "  Time: ";tim$;SPC(4);" Nr: ";num$;SPC(4);" Type: ";typ$
  868.   LPRINT "  Side 1 : ";quala$;" | ";norea$;" | ";datea$
  869.   LPRINT "  Side 2 : ";qualb$;" | ";noreb$;" | ";dateb$
  870.   LPRINT "|";STRING$(39,"-");"|"
  871.   LPRINT "  1) ";backa$;"   ";LEFT$(num$)
  872.   LPRINT "  2) ";backb$;"   ";MID$(num$,2,1)
  873.   LPRINT "|";STRING$(39,"-");"|"
  874.   FOR z=1 TO 25
  875.     LPRINT CHR$(18);" ";CHR$(15);
  876.     LPRINT atitle$(z);CHR$(18);"|";CHR$(15);btitle$(z)
  877.     IF z=15
  878.       LPRINT CHR$(18);
  879.       LPRINT "|";STRING$(39,"-");"|"
  880.     ENDIF
  881.   NEXT z
  882.   LPRINT CHR$(18);
  883.   FOR a=1 TO 4
  884.     LPRINT
  885.   NEXT a
  886.   LPRINT "|";STRING$(39,"-");"|"
  887. RETURN
  888. > PROCEDURE get_path
  889.   FOR f=1 TO LEN(file$)
  890.     IF MID$(file$,f,1)=":"
  891.       path$=LEFT$(file$,f)
  892.     ENDIF
  893.   NEXT f
  894. RETURN
  895. > PROCEDURE about
  896.   GET 95,45,545,155,sa$
  897.   COLOR 2
  898.   FOR a=98 TO 542
  899.     PLOT a,49
  900.     PLOT a,48
  901.   NEXT a
  902.   FOR a=48 TO 152
  903.     PLOT 541,a
  904.     PLOT 542,a
  905.     PLOT 543,a
  906.     PLOT 544,a
  907.   NEXT a
  908.   FOR a=542 TO 98 STEP -1
  909.     PLOT a,151
  910.     PLOT a,152
  911.   NEXT a
  912.   FOR a=152 TO 48 STEP -1
  913.     PLOT 99,a
  914.     PLOT 98,a
  915.     PLOT 97,a
  916.     PLOT 96,a
  917.   NEXT a
  918.   FOR a=1 TO 221
  919.     COLOR 0
  920.     LINE 99+a,50,99+a,150
  921.     LINE 541-a,50,541-a,150
  922.   NEXT a
  923.   PRINT AT(29,7);"C A S S E T I   V 1.1"
  924.   PRINT AT(29,8);"---------------------"
  925.   PRINT AT(23,10);"Casseti is PublicDomain-Software."
  926.   PRINT AT(26,11);"It is written in GfA-Basic."
  927.   PRINT AT(15,12);"If you like it, I would be very happy about a small"
  928.   PRINT AT(22,13);"donation (money or disks [3,5/5,25])."
  929.   PRINT AT(32,15);"Thorsten  Ludwig"
  930.   PRINT AT(33,16);"Goethestr. 103"
  931.   PRINT AT(31,17);"D-6730 Neustadt 17";SPC(13);"Click"
  932.   REPEAT
  933.   UNTIL MOUSEK
  934.   FOR a=221 TO 1 STEP -1
  935.     COLOR 0
  936.     LINE 99+a,50,99+a,150
  937.     LINE 541-a,50,541-a,150
  938.   NEXT a
  939.   FOR a=48 TO 152 STEP 1
  940.     PLOT 99,a
  941.     PLOT 98,a
  942.     PLOT 97,a
  943.     PLOT 96,a
  944.   NEXT a
  945.   FOR a=98 TO 542 STEP 1
  946.     PLOT a,151
  947.     PLOT a,152
  948.   NEXT a
  949.   FOR a=152 TO 48 STEP -1
  950.     PLOT 541,a
  951.     PLOT 542,a
  952.     PLOT 543,a
  953.     PLOT 544,a
  954.   NEXT a
  955.   FOR a=542 TO 98 STEP -1
  956.     PLOT a,49
  957.     PLOT a,48
  958.   NEXT a
  959.   PUT 95,45,sa$
  960. RETURN
  961. > PROCEDURE leave
  962.   ALERT 0,"Are you sure you want|to quit ?",1,"Quit|Cancel",cho%
  963.   IF cho%=1
  964.     QUIT
  965.   ENDIF
  966. RETURN
  967.